unit Class_CASHS;

interface

uses
  SysUtils, Classes, DataEngine;

type
  TCASHS = class(TBaseClass)
  public
    CASHID: string;
    CASHNAME: string;
    CASHCLASS: string;
  public
    function GetFullName: string;
    
    destructor Destroy; override;
  end;

implementation

{ TCASHS }

destructor TCASHS.Destroy;
begin

  inherited;
end;

function TCASHS.GetFullName: string;
begin
  Result := '[' + CASHID + ']' + CASHNAME;
end;

end.
